home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19971216-19980424 / 000292_news@newsmaster….columbia.edu _Thu Mar 12 17:29:25 1998.msg < prev    next >
Internet Message Format  |  2020-01-01  |  2KB
  1. Return-Path: <news@newsmaster.cc.columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.35.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id RAA17829
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Thu, 12 Mar 1998 17:29:25 -0500 (EST)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id RAA11399
  7.     for kermit.misc@watsun; Thu, 12 Mar 1998 17:29:25 -0500 (EST)
  8. Path: news.columbia.edu!panix!nntprelay.mathworks.com!newsfeed.internetmci.com!207.69.200.121!news.mindspring.com!not-for-mail
  9. From: jabr@mindspring.com (John Brnich)
  10. Newsgroups: comp.protocols.kermit.misc
  11. Subject: kermit for sco xenix
  12. Date: Thu, 12 Mar 1998 22:29:59 GMT
  13. Organization: MindSpring Enterprises, Inc.
  14. Lines: 37
  15. Message-ID: <6e9nig$npb$1@camel29.mindspring.com>
  16. Reply-To: jabr@mindspring.com
  17. NNTP-Posting-Host: user-38lcci3.dialup.mindspring.com
  18. X-Server-Date: 12 Mar 1998 22:28:32 GMT
  19. X-Newsreader: Forte Free Agent 1.0.82
  20. Xref: news.columbia.edu comp.protocols.kermit.misc:8487
  21.  
  22.  
  23. The following code crashes b4 the enter file name line with the
  24. message "line too long or contains nul characters". I can't find any
  25. unwanted characters using "vi". The set commands are accepted and it
  26. does ask for user name and password.  What is wrong?  I would
  27. appreciate your input.     John.
  28.  
  29. :begin                     
  30. set modem type multitech         
  31. set line /dev/tty1a
  32. set speed 9600
  33. ;set autodownload on
  34. echo \13
  35.  
  36. :getname
  37. ask \%n Enter your User Name:
  38. ask \%p Hello, \%n, Enter your Password:
  39.  
  40. :filename                          ;set var a=1  user inputs file name
  41. cd /absclaims                  ;q=quit program  x=no file to send
  42. def {\%a} {1}                   ;valid file sets var a to filename
  43. while equal {\%a} {1}  {    ;which ends the loop
  44.   ask \%f Enter File Name (x=no file   q=quit):
  45.     if equal {\%f} {q}  goto theend
  46.     xif equal {\%f} {x}  {
  47.       asg \%a \%f
  48.     }   else {
  49.            xif not exist \%f {
  50.               echo File does not exist  Enter a valid file name
  51.               pause 3
  52.               echo \13  
  53.         }  else  {
  54.              asg \%a \%f  }
  55.         }
  56. }
  57.  
  58.